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RANSFORMEZ LE FORTH 63-STANDARD 
DE LAXEN ET PERRY EN 


TURBO-FORTH 


EOITORIAL 


Après une période de marasne, JEDI semble s'être réactivé 
avec vatre aide et Le secours de nombreux articles. Ceux 
n'ayant pû être publiés dans ce numéro Le seront dans Les 
suivants. Pour vous mettre L'eau à La bouche: du FORTH 
(gestion QUE variables Locales, index trié de 
vocabulaire, fes ion des attributs VIDEOTÉX, graphisme avec 
carte HERCULES), du PROLOG (logique binaire en Turbo- 
PROLOG, simulation de commandes de robots) et des rubriques 
habituelles (logique, courrier Le cas échéant) avec des 
questions et réponses. 


JE0I HUE de ton: on continue à faire 20 pages si 
possible (excepté pour ce numéro-ci); une condition, 


écrivez des articles, envoyez des programmes, posez des 


SOMMAIRE 


FORTH: TURBO-Forth, un es NOTBORLAND 


Pour atigner Le F0 


questions, répondez aux questions. L'aspect dialogue sera 
renforcé. Mais Le AUS ne sera pas oublié: 
bientôt JEDI diffusera TURBO-Forth 83 Standard system pour 
MS00S exclusivement. Ce nouveau FORTH ne traitera que des 
fichiers ASCII, sera plus compact et AE rapide que Le 
F83 de Laxen et Perry tout en préservant 5à nue Pour 
vous donner un avant FL et aligner votre F83 Laxen et 
Perry à La norme TURBO-Forth, vous trouverez dans ce 
DURÉTE Un progranne AU la HE des programmes 
écrits au format ASCII. Notre intention est de Coiffer 
BORLAND au HSE s'ils ont l'intention de diffuser eux 
aussi un TURBO-Forth. Avant il } avait Les produits chers 
et Les produits à prix BORLAND, maintenant, il y aura 
aussi Le prix JEDI avec La qualité TURBO! 


5 ACOCPPNPIPPEE [] 


TT 


TH 83-Standard de Laxen et Perry sur La nouvelle norme en matière de FORTH MS00S. Un autre 


avantage, assurer un traitement aisé des fichiers source écrits en FORTH. 


VIRGULE FLOTTANTE en MVP-FORTH 


Que Les courageux traduisent ceci en F83 Laxen et Perry ou TURBO-Forth. Merci d'avance. Ces routines devaient 
être diffusées par une revue, La meilleure, JEDI Cun peu de brosse à reluire ne fait pas de mal...) 
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LOGIQUE: LA LOGIQUE BIEN FORMALISEE nr . 
Si Les mathématiques modernes vous laissaient perplexe, alors Lisez notre prose, elle vous appportera une 
Lumière nouvelle sur un domaine fort peu étudié dans Le cycle scolaire normal (excepté en automatisme). Et même 
si Vous n'y comprenez pas grand chose, notre humour vous séduira peut-être. 

COURRIER: Les Lettres des adhérents 


3, 14 à 16 


Pour permettre d'apporter des réponses à des questions que beaucoup d'entre vous doivent certainement se poser. 


| 


NOTE: 


C'est toujours Le secrétaire qui réalise L'éditorial et La couverture. Mais si vous vous sentez inspiré pour exprimer 
votre humeur ou vos talents RAMHES n'hésitez pis, ENVOYEZ vos pptitinns nous verrons Ce que nous pourrons faire. 


Que ce sait à La manière de SAN-ANTONIO ou de VERL 
certainement un vent de fraîcheur à cette page. 


INE avec votre p 


ume trempée dans l'acide ou Le miel, vous apporterez 


Toute reproduction, adaptation, traduction partielle du contenu de ce magazine sous toutes Les formes est vivement 
encouragée, à l'exception de toute reproduction à des fins commerciales. Dans Le cas de reproduction par AUS il 


est denandé de ne a RSQUer Les références inscrites en bas de page, et dans Les autres cas de citer L' 
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Si tous Les Langages permettent une sauvegarde des 
A rt seurce en ASCII, Le Langage FORTH faisait bande 

part avec une gestion de bloc bien exotique. Voici un 
utilitaire permettant de combler cette lacune. 


TURBO-FORTH (NR) 
un produit NOTBORLAND (NTM) 


NRzNot Registered 
NTM=Not Trade Mark 


par Marc PETREMANN 
F83 Laxen et PERRY version M5005 


C'est bien simple, depuis que P.KAHN, directeur de BORLAND 
USA s'est expatrié aux States, nous sommes envahis (en 
bien, merci ah par Turbo-PASCAL, Turbo-C, Turbo- 
PROLOG, Turbo-BASIC... et caetera. 


IL n'y à donc pas de raison que nous ne nous fendions LE 
d'un pragramme permettant de transformer Le FORTH 03- 
Standard de Laxen et Perry en une version us conviviale 
et conforme à L'esprit de BORLAND, je cite: Turbo-FORTH. 


Si le titre de cette rubrique fait un peu gag, Le AUD 
gropesé ci-après n'en est pas moins intéressant. Rappelons 
l'esprit qui gouverne La gamme Turbo-xxx: 


- un programme est traité sous forme de fichier ASCII à 
partir d'un éditeur de texte plein écran. 


- Le programme est compilé à partir du compilateur. 


Or, avec FORTH nous disposons du compilateur. L'éditeur 
plein écran peut avantageusement être remplacé Hi un 
programme de traitement de texte. Pour ma part, WORDPERFECT 
convient très bien à cette tâche. En effet, il est possible 
de quitter Le traitement de texte, Lancer FORTH, compiler 
Le programme et revenir au programme Source: 


DEPUIS WORDPERFECT: 
- taper son fichier ASCII contenant un programme FORTH 
- Sauvegarder sous format ASCII en activant CTRL-FS 
et option 1; confirmer par 0 si Le fichier existe déja 
sur Le disque . 
- après sauvegarde, activer CTRL-F1, et passer sous 005 
avec L'option 1 
SOUS 005: re ; 
- taper F43, cette version incluant Le programme C1- 
après en version conpilée 
SOUS FORTH: d 
- taper INCLUDE d:1fichier ext LA d: 
facultatif}, exemple: INCLUDE GRAPHIC. TAT 
- exécuter Le ne 
- sortir de FORTH en tapant BYE 
SOUS DOS 
ë Hi EXIT 
RETOUR À WOROPERFECT Ur 
- vous êtes de retour à WORDPERFECT, votre fichier 
source est toujours résident et Le curseur à L'endroit 
précis où vous l'avez Laissé avant de passer sous DDS. 


EN PRATIQUE 
Vous allez souffrir encore un peu si manipuler des blocs 
vous rebute réellement. Entrez dans un fichier FORTH nommé 
INCLUDE. BLK Le Listing ci-après: 
10 CREATE-FILE INCLUDE .BLK 
OPEN INCLUDE .BLK 
EDIT 


puis entrez Le Listing 


Votre programme occupe n blocs; quittez l'éditeur en tapant 
DONE ULL 1 n THRU ol 0] is! le BEnLrS du dernier toc 
édité. Exemple, votre programme occupe 5 blocs (bloc 1 à 
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6), compilez-Le en tapant 1 6 THRU. 
La Sauvegarde en version compilée est exécutée par Les 
commandes : 

HERE FENCE ! 
SAVE-SYSTEM TURBOF83.C0M 
BYE 
Vérifiez Le bon fonctionnement de TURBO-FORTH en tapant 
TÜRBOF 83. 
Essayez un premier fichier texte; revenez sous 005 et 
tapez: 

COPY CON: BOUCLE .TXT 

"20 0 00 CR I LOUP ; 

BOUCLE 


Vérifiez Le contenu du fichier en tapant TYPE BOUCLE.TXT. 
Testez TURBOF83 en action en tapant: 

TURBOF 43 

sous FORTH 

INCLUDE BOUCLE. TXT 


Le programme est compilé puis exécuté, car BOUCLE figure 
en mode exécution après La compilation de sa définition. 


et 


COMMENT CA MARCHE 


La vous vous dites: c'est dément, c'est super... Vous 
piaffez d'impatience d'essayer, vous faites baver votre 
chien en oubliant de Lui donner à manger (pauvre bête) et 
qu'il Lorgne sur vos frites qe vous avez Laissé 
AIS captivé par Le contenu de cet article que vous 
êtes... 


La première partie est toute simple. On définit une série 
de vecteurs destinés à initialiser une table CONTROL-TABLE 
se substituant à CC-FORTH 


La seconde Je définit trois mots en assembleur FORTH 
COPEN-F), CÉLOSE-F) et F-6ET. Le mot F-GET est capital; i 
dépose à chaque exécution une valeur CUT & un 
caractère Lu SégentieLLemnt dans Le fichier ASCII ouvert. 
La vectorisation ultérieure de F-6ET dans KEY fait croire 
au Système FORTH que tout caractère Lu dans un fichier 
provient d'une frappe au clavier. 


La troisième partie gère Les cas d'erreur et de fin de 
fichier. 


La dernière partie définit INCLUDE. Rien à dire si ce 
n'est Le comportement particulier de ce mot. 


INCLUDE ouvre un fichier, compile ou exécute son contenu 
si c'est du code FORTH puis referme Le fichier. IL n'y à 
pas de collision à compiler un fichier ASCII depuis un 
Loc FORTH. Par contre, on ne peut exécuter INCLUDE depuis 
un fichier ASCII. S1 vous voulez fusionner plusieurs 
fichier, définissez un bloc contenant: 


INCLUDE fichiert.txt 
INCLUDE fichier2.txt 


INCLUDE fichiern.txt 


d RL vos fichiers à L'aide de votre traitement de 
exte. 


La compilation à L'aide d'INCLUDE ne génère pas d'en-tête 
pour Le fichier dans Le dictionnaire contrairement à OPEN. 


La NE des Lignes du fichier ASCII est Liaitée à 60 
AE une tabulation est conptée pour un caractère 


L'écho à L'affichage Lors de L'exécution de INCLUDE permet 


de repérer une éventuelle erreur. 
Le fichier ASCII peut avoir une taille quelconque. 


ATTENTION AUX INCOHERENCES: Si vous débutez en FORTH et que 
vous reproduisez un programme présenté sous forme de blocs 
en fichier ASCII, ne reprenez pas Les mots suivants: 


==) 
THRU 
+THRU 


Utiliser avec prudence ceux-ci: 


LE LISTING 


| Chargement de fichiers texte 
DEFER “A DEFER "B DEFER °C DEFER "D DEFER ‘E 
DEFER "F DEFER “6 DEFER "I DEFER "J DEFER "K 
DEFER *L DEFER °N DEFER "O DEFER “Q DEFER "R 
DEFER *S DEFER "T DEFER °V DEFER "N DEFER ‘Y 
DEFER “Z DEFER ‘0 
! NOOP 16 ‘0 ! (CHAR) IS "A 
* (CHAR) IS "C  ‘ CCHAR) IS ‘D : 
! (CHAR) 15 ‘F ! (CHAR) IS "6  ! 
! (CHAR) 15 "9  ‘ CCHAR) IS %K  ? (CHAR) IS "E 
1 (CHAR) IS 'N CHAR) IS ‘0 | 

0 l 


CCHAR) 15 8 


! (CHAR) IS 'R (CHAR) JS *G 
! (CHAR) IS ‘4 CHAR) 15 'Y (CHAR) IS "7 


CREATE CONTROL-TABLE CONTROL-TABLE CC ! 
J0 ‘A "8 *C ‘D 'E ’E 


‘6 BS-IN "I ‘J K ‘L CR-IN 
‘ù ] P-I 0] "R (] “] 
BACK-UP ‘VU "4 BACK-UP  "Y "7 CHAR 


CHAR CHAR CHAR CHAR 
| Chargement de fichiers texte 
HEX 


CODE (OPEN-F)  ( adr-non-fichier --- hndt fl) 
DX POP 3002 # AX MOV 21 INT AX PUSH Uk 
IF 0 # AX MOV 
ELSE 1 # AX MOV THEN 

€ hndl ---) 


1PUSH END-CODE 
CODE (CLOSE -F) 
BX POP 3E # AH MOV 21 INT NEXT END-COUE 
VARIABLE F-HANDLE 
VARIABLE K-BUF 
LABEL F-ERROR O0 # AX MOV 1PUSH 
CODE F-6ET (---n) 
F-HANDLE #) BX MOV 1 # CX MOV 
3F EF AH MOV 21 INT F-ERROR JB 
IF 11 # AL MOV 
ELSE K-BUF #) AX MOV THEN 
AH AH SUB 1PUSH  END-CODE 
DECIMAL 
| RARE de fichiers texte 
VARIABLE F-NAME 15 ALLOT 
: (GET-FNAME) 


14 MIN DUP ROT ROT 
F-NAME SWAP MOVE F-NAME + 0 SWAP CI! ; 


K-BUF # DX MOV 
CX AX SUB 0) 


: GET-FNAME 
BL WORD COUNT (GET-FNAME) ; 


['] C?ERROR) 15 ?ERROR 
F-HANDLE @ C(CLOSE-F) ; 


: CONTROL -7 


." Fin de fichier " CR EOF BACK-UP CR ; 
: 2ERR-0 
OUP IF EDF (?ERROR) 


ELSE DROP 20ROP THEN ; 
SC Cl de fichiers texte 
TAB-IN 
DROP 32 (CHAR) ; 


._— 


: INCLUDE 
GET-FNAME F-NAME  (OPEN-F) 
IF F-HANDLE  ! 
C') TAB-IN 15 “I 


CONTROL-Z IS *Z 
PERR-0 15 ?ERROR 
E ABORT" Fichier non trouvé 


ELSE TR 
THEN ; 


EN CONCLUSION 


Nous espérons avoir fait des heureux en Leur simplifiant 
La manipulation des fichiers FORTH. 


de manque maintenant, c'est Rene un véritable 
éditeur de fichiers ASCII travaillant en aode plein écran. 


Les fonctions assembleur utilisées dans ce ALU ont 
êté inspirées d'un article paru dans FORTH DIMENSION. 


Voila, occupez-vous de votre chien, il est en train de 
HU votre bas de pantalon, perdant patience à attendre 
sa paté. 


Ndtr: Si P.KAHN sort un jour un vrai Turbo-FORTH, qu'il ne 
nous en veuille ILE d'avoir usurpé un titre peut-être déjà 
déposé. S'il est sympa, qu'il nous envoie un échantillon, 
on n'attend que ça pour en dire du bien... bei 


DERNIERE MINUTE: nous apprenons que Les Logiciels 
POSTSCRIPT et  RAPIDFILE ont été écrit en FORTH. Voici qui 
nous conforte dans L'idée que FORTH est un Langage 
intéressant et d'avenir. 


Concernant RAPIOFILE, ce Logiciel de traitement de base de 
données, réalisé par ASHTON TATE est Le dernier né d'une 
série prestigieuse: 


- OBASE IL (écrit en BASIC et compilé) 
- dBASE III (écrit en C) 


COURRIER : 


de regrette vivement de n'avoir pu me rendre à votre 
convocation d'assemblée, : ; 

J'ai reçu celle-ci Le Lendemain au courrier et 00 km 
nous séparent. | l ; . 

de désire toutefois témoigner de L'intérêt pour JEDI 
tel que vous l'animez et de ma reconnaisance profonde à 
votre égard. . 

Vous vous alarnez du peu d'activité des membres en étéi 
Hélas, par temps de canicule, La baignade inspire plus que 
fÉRENNIeR: Je ne suis FORTHa qu'à mes heures, en principe 

iver. 

ous ez l'animati 
haut qui | ASTON en Suis bien 
reconnaissant, mais La participation de chacun de nous est 
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Cher Secrétaire 


de cette asociation .au plus 
vous 


TJEPT 


Z 


bien modeste, pour ne pas dire inexistante. Peut-être La 
télématique devrait-elle apporter Le dialogue permament qui 
fait défaut me semble-t-il entre chacun d'entre nous. | 

Une machine connectée sur une Ligne tléphonique suivant 
un calendrier servirait de boîte aux Lettres pure 

L'animation viendrait ainsi de partout et tes 
ji HR ou Les suggestions pourraient être reprises 
et traitées par chacun. De cette façon des problèmes 
mobilisateurs pourraient être sélectionnés, des groupes 
constitués, des faux problèmes éliminés, etc... 

Mais La mise en place des moyens est peut-être 
poNaiite pour des préoccupations actuelles. 

l'association ne 5e RARE pas, écrivez-nous, bien 

heureux, car à coté L'informatique familiale s'effondre, La 
consommation intérieure ne s'est pas dveloppéel.… faute 
d'imagination et de communication. | 2e 

Je renouvelle mon espoir de voir L'Association 
poursuivre son action, si précieuse pour moi. 


Forthesent vôtre 
J.CHANORU 
26130 ST PAUL TROIS CHATEAUX 
REPONSE : Cher adhérent, 


Votre courrier me fait bien plaisir, et venant de La 
part d'un membre ayant déjà participé activement au contenu 
de La revue, nous encourage à continuer (nous: SECRETAIRE, 
TRESORIER, PRESIDENT). : 

Peut-être L'été at-il été trop chaud. Je souhaite en 
tout cas qu'après avoir tiré l'alarme, Les choses bougent 


un peu. 
Nous avons fait une paie SARADARREE télématique en 
proposant un service FORUM sur (3615)SAN. C'etait un échec; 
moins de une minute de communication par semaine entre juin 
66 et Heas 86. De ce fait, Les Logiciels 
LATE Les ont été supprimés. Reste La messagerie très 
agonisante faute d'animation (peut-être défunte à ce jour). 

D'accord pour toute idée de serveur télématique, mais ne 
recommençons pas Les mêmes erreurs. Lancer un SEFVEUT, MÈRE 
monovoie en réseau commuté, Sans proposer au réalable une 
Liste déjà fournie de services, c'est courrir à nouveau au 
désastre, De plus, Les communications téléphoniques coûtent 
relativement cher. Pour ne faire aucune discrimination 
entre adhérents de province et adhérents de PARIS, il 
semble obligatoire de recourir au 3615, Mais Un Serveur 
exclusivement JEDI coûte Les yeux de La tête. 
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Au mieux, JEDI pourrait se faire FL par un 
serveur déjà opérationnel ou un prestataire de service. 
Mais come je ne puis tout faire, si des adhérents ont des 
relations ou des contacts dans Le domaine de La 
télématique, nous Leur Laissons carte blanche pur mener à 
bien L'idée d'un service de mesagerie JEDI. Inutile 
d'habiter à PARIS pour monter ce service. . 

Concernant l'effondrement de La micro familiale, 
c'était prévisible. On a tout fait pour écoeurer Les 
utilisateurs: 

- sortir un SPECTRUM SINCLAIR 64K sans CP/N 

- sortir un T07/70 puis un T09 sans FLEX 

- sortir un ORIC équipé d'un 6502 sans donner aucun 
goyen de digérer Les programmes APPLE... 

- et toutes Les machines tel ALICE, NEMBRAIN, MPFIL, et 
série MSX dont La vente a été Sans suite, voire une 
véritable escroguerie... ; 

_- pondre des SQUALE avec un service après vente 
inexistant... : 

- sortir 200 jeux sur un même modèle de machine avec Le 
mène scénario (tirer sur des martiens, des vénusiens, des 
GFRETGIS...) contre un utilitaire tenant à peine La route 
(700 Fr un traitement de texte de 2k sur cassette pour 
NewBRAIN, merci, on à donné...). . 

Certes, il y a eu aussi de bonnes choses, mais 
raisenaans Lagiquentat et Comprenons qu'un utilisateur ne 
peut plus investir 5000 Fr ou plus sans avoir La certitude 
d'avoir fait Le bon choix. C'est pourquoi 
plus en concurrence sur Le marché du hobb 


il ne reste 
| informatique 


que Les JT dits COMPATIBLES PC et Les systèmes à 
base de U 60000 CATARI, COMMODORE, MacINTOSH). Les 
autres, à La trappe... 


Ceci dit, il reste encore beaucoup à inventer et La 
créativité ne mourra pas, nous espérons en faire La preuve 
ue Longtemps et avec L'aide de tous Les membres de 


M.PETREMANN - SECRETAIRE JEDI 
93160 NOISY LE GRAND 


VS Era pe ui 
none RE | cure 


PE —— 
ML CAR P': 
am RENTE = 


men ee A ER | C2 
PT 2 OA er LÉVLREREY OL UIT OS LAN 
pue POENRRRS, de ES 
rares 
N 


Cher secrétaire, 


Comme je serai désolé de ne je recevoir votre 
"remarquable quasi mensuelle" DAS ion, je Vous envoie 
un peu de matière qui, je L'éspère, vous sera utile. 


En espérant que ma modeste contribution sera utile, je vous 
prie de recevoir mes meilleurs sentiments 


Joël STEIN - MAROLLES EN BRIE 


Je vous propose un source pour assembleur 8086 normalement 
inclus dans un source FORTH (fabrication maison à partir du 
FORTH MVP), qui, au Dre d'encourir Les foudres des 
geistess permet Le calcul lattant, ce qui, en FORTH, est 


out de mêne souvent utile, 


Bien entendu La forme un peu Lourde d'écriture peut être 

ANR LE remplacée ni des écrans forth normaux, et 

on peut utiliser l’assembleur forth pour obtenir Les mêmes 

RARE de Laisse ce Soin aux amateurs de ce genres 
"exercices. 


La Pal des routines de convertion asciilflottant et 
flottantiascii sont dérivées du  BLUEBOOK of ASSEMBLY 
ROUTINES for the IBM PC & XT de Christopher nu LEE Les 
routines de calcul à proprement parler sont issues d'une 
Longue SEA de différents documents extraits de 
revues (BYTE, DR DO8B'S, COMPUTER LANGAGE, etc...) et de 
mon expérience personnelle. Le choix du format est un 
compromis entre La précision et La vitesse d'exécution.Il 
ne permet pas La CRAEROTEITE avec Le coprocesseur 6087, 
cependant Le source est aisément modifiable dans ce sens, 
ue ce cas sans doute vaut-il mieux utiliser un autre 
système. 


Ce flottant est donc constitué de 3 mots de 16 bits. Les 8 
bits de poid Le plus fort représentent L'exposant binaire 
signé, Les 40 bits suivants étant La mantisse signée 
normalisée sous La forme x.xcccoexxx x étant un chiffre 
de 1 à 9 (cette normalisation n'est pas standard). Exemple: 


928.345 est représenté sous La forme 9.28345E+2 
0.0928 est représenté sous La forme 9.28E-2 


GLOSSAIRE 
nes FORTH permettant La conversion s'utilisent comme 
suit: 


ASCFP CO Add Count ---- n1 n2 n3 ) 
Add = adresse de La chaine de caractère représentant 
Le nombre | 
Count = Longueur de La chaine ; | 
ni nè et n3 représentent Les 3 fois 16 bits du 
flottant 


FPASC {nt n2 n3 --- Add ) 
n1,n2 et n3 sont Les trois cellules du flottant 
Add pointe sur Le count de La chaine de caractères 
représentant Le nombre 


F+ { FP1 FP2 --- FP3 ) 
FPx représente un nombre flottant donc 3 cellules (n1 
nè n3) FP3 = FP9+FP2 


F- C FRA FP2 --- FP3 ) 
FP3 = FP1 - FP2 
Fe € FPA FP2 ---- FP3 ) 


FP3 = FP1 # FP2 


€ FPA FP2 ---- FP3 ) 
FP3 = FP1 /FP2 


€ FPA --- FPA FP1 ) 
C FP1 FP2 --- FP2 FP1 ) 


FOUP 
FSWAP 


F0 constante qui retourne 0 0 0 € 0 flottant) 


INT . {FPt---n) ... 
convertit un flottant en entier signé { -8000H =€ n = 
TFFFH ) 


FLOAT Cn----fP) 
convertit un entier signé en flottant 


FOVER (€ FP1 FP2 --- FP1 FP2 FP1 ) 
Fe 


| { Add --- FP ; 
extrait Les trois cellules constitant FP de Add 


F! € FP Add ---- ) 
range Les trois cellules constituant FP dans Add 

Comme on peut Le constater dans Le source tes erreurs 

(ERRFP) ne sont pas traitées, et Le sous programne se 

contente de faire un RET. avis aux amateurs 11111 


ATTENTION comme Les erreurs ne sont Fe traitées, pour 
éviter l'erreur fatale si redoutable, La division par 0 
retourne © (je sais, c'est très mal mais LA encore Le 
temps me nanqüe et 51 quelqu'un veut bien Se donner La 
peine, je suis preneur 1111) 


En attendant La suite je vous souhaite à tous de bien vous 
aauser... 


i DEBUT DES ROUTINES FLOTTANTS 
; CES ROUTINES SONT APPELEES PAR FORTH 


; DEFINITIONS DES ZONES RESERVEES 
ÉPTEMPt DB 


13 OUP (0) ; FORMAT INTERNE DE CALCUL 
FPTEMP2 DB 19 OUP (0) : FORMAT INTERNE DE SAISIE 
DECBUFF DB 25 OUP (0) ; BUFFER DE CONVERSION BIN/DEC 
DECSIGN DB © ; SIGNE DÉCIMAL 
DÉCEXP DU : EXPOSANT DECIMAL 
DECFLAG 0 ; 
BUFB0B OB 20 DUP (0) 
BUFCARIN DB 25 DUP (0) >; BUFFER DE SAISIE 
UNB 8 DUP (0) 
BUFCAROUT 08 26 OÙP (0) 
FPERR DB 0 


3 DUP (0) 
SENOPERT DB 0 
SGNOPER2 DB 0 
HULEXP1 DB 0 
MULEXP2 08 0 
; IONE DE TRAVAIL 
TEMPDIV 0B 16 OÙP (0) 

UP (7?) 


OPERT DB 9 0 
OPER2 DB 9 DUP (?) 
RESMUL 0B 14 OUP (7?) 
RESMANT 08 9 DUP (0) 
QUOTIENT DB 6 DUP (0) 
Û 
; Al 

08 69H 

DB  FQUOTIEN” 

DB ‘T'+30h 

OW  RANO-6 ; à remplacer 
FQOT [] 


OW  QUOTIENT 
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1387 


6 


DB üéh 

08 ‘FPO' 
08 ‘P'+00H 
DW  FPACC-8 


ON OPER? 


i AUFSORT 
ô 


BUFCAROUT 


RESULT 
35H 
DB ‘FPRE' 
DB  ‘S'+50H 
ON  GUFSO-0AH 
FPRES DM  DOCON 
ON NUMB 


; FPENTREE 


DW__ OOCON 
BUFCARIN 
ERRFP 


ÉnRFP:  RET 


FPLEC 

: LE NOMBRE DOÏT ETRE DANS GUFCARIN EN ASCII 
: LE PREMIER OCTET CONTIENT LE COUNT 

CECFP: PUSH DI 


CX 
LEA DI,BUFCAR 
NOV CX, NORÉ PR. BUFCARIN 


MOV AL,BYTE PTR CDI) 
INC BTE PR BUFCARIN+1 


: CONVERSION ASCII SIGN EN BINAIRE 
ÉGNDECIGIN: MOV OX,0 


CALL LEËRR, 

ee SE 11 

J2 SBADECH6TN? 

MP SGNDÉC A6 IN 
SGNDECISINT: MOV CH,OFFH 
SGNDECAGINZ:  CALL LECE, 
GENDECA6INI: SUB 
ONDECTÉINI 


AL,3 
J6 SGNDEC16IN4 


ADD DX,AX 
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Cx 
JP SGNDEC16IN2 
SEADEL HEIN: CMP CH, 
JE  SENDECIGINS 
NEG ns 
SGNDECA6INS:  RET 
FPENDIGIT: PUSH DI 
PUSH AX 
MOV AL,0 
MOV CX,15 
FPINOI6ITA: 
MOV EDIJ,RL 
INC OI 
LOOP FPINDIGITI 
POP A 


FPINDIGIT 


POP D! 

NOV SEDI,AL 

RET 
. MULTIPLICATION PAR 10 
FPTMUL: MOV CX,5 


HOV DX,1 
FPTMUL1: PUSH CX 
HOV_ AX,DX 
KCHG AX,CDI] 

NOV Û 


LOOP FPTHUL1 
: DIVISION PAR 10 
FPTDIV: 


FPTOIVA: SAL WORD PTR LOI), 1 
RCL WORD PTR 2(01],1 
RCL WORD PTR 4001),1 
RCL WORD PTR 6(011,1 


RCL NORD PTR 8{011,1 
DEC WORD PTR 11001) 
rl FPTDIVI 


ADD 
FPTDIV2: PUSH CX 
MOV AX,CDI) 


NOV CK,10 
Cx 


HOV  CDIJ,AX 
SUB DI,2 
CX 


POP 
LOGP FPTDIV2 
RET 


j NORMALISATION OÙ FP 
FPINORM: CMP MORD PTR O8(DI),60H 
JL FPTNORN1 


SAR WORD PTR 08(01),1 
RCR WORD PTR 06C01],1 
RCR WORD PTR 04[D1),1 
RCR WORD PTR 02(013,1 
RER WORD PTR 00C013,1 
“INC WORD PTR 1101] 
JP FPTNORN 
FPINORNI:  RET 


, 
1 


NORMALISATION APRES OPERATION 
FLTNORN: k MOV. AL,BYTE PTR 4(51] 


JNC  FLINORMI 

SHR BYTE PTR 04[51),1 

RCR WORD PTR O2[51),1 

RCR WORD PTR 0051] ,1 

INC BYTE PTR OSESI) 
FLIN 


JHP DRM 
FLINORMA: MOV AL,BYTE PTR 4C51] 
CHP  AL,40H 


JMP  FLINORMI 
FLTNORM2: RET 


ÉXTINT: 
MOV Au, xoRD PTR FPTEMP1 
EXINTS 


Ü AX,NORD PTR FPTEMP142 
MOV AXNORD PTR FPTEMP1#6 
NOV WORD PTR NUMB+0,AX 


MOV AXQWORD PIR FPTEMP146 
AOC AK,0 


NORD PTR NUMB+2 ,AX 
NOV HE M PTR FPTÉMP1+8 


AND AX, ,007FH 

MOV NORD PTR NUMB+4,RX 

MOV AL,BYTE PTR FPTÉMP1+10 
fl, 80H 

OR BYE PTR NUMB+4 ,AL 


MOV  AX,WORD PTR FPTEMP1+11 
AX,-128 


OX, 
JNE  EXTINT3 
MOV AL,0 
HUNTE MOV. BYTE PTR NUMB+5,RL 
EXTINTI: MOV  BYTE PTR FPERR, 10H 
CALL ERRFP 
JMP EXTI 
EXTINT2: MOV 
EXTINT4: RET 


. 
! 
. 
3 


î INTEXT 
ÎNTEXT: MOV WORD PTR FPTEMP1,0 
MOV NORD PTR FPTEMP142,0 
V  AX,NORD PTR NUNB+0 
MOV no PTR FPTEMP1+4,AX 
X NORD PTR NUMB+2 
NOV AUD PTR FPTEMP1+6 ,AX 
MOV AX,MORD PTR NUMB+4 
AN ADO 


MOV. WORD PTR FPTEMP1+8 ,AX 
MOV Fos 4BYTE PTR NUMB+4 


MOV HT PTR FPTEMP1410,AL 
MOV AL,BYTE PTR NUMB+S 
MOV ay, 0 


AX,60H 
MOV WORD PTR FPTEMP1+11,RX 


NT4 
BYTE PTR FPERR,20H 
RFP 


; SAISIE FLOTTANT 


P 

LEA DI,FPTEMP1 
MOV AL,0 

CALL FPINDIGIT 

NOV OECFLAG,0 

MOV  DECEXP,0 

CALL HR 

CMP 


JZ FINI 
CMP AL,'+' 


CONVERSION EN INTERNE i 
FPINT: MOV BYTE PTR FPTEMP1+10,80H 
FPIN2: CALL LECFP 


"CNP DECFLAG,0 
FPINS 


JNP 
FPIN4: EN 


Per: JMP AE 
PING: 


FPIN10: SAR WORD PTR FPTEMP2+08,1 


FPIN12: MOV  AX,CSI] 
INC SI 


ÉPIN13: CMP DECFLAG,0 
FPIN14 


FPIN14: JP FPIN2 


FPIN16: NOV CX, DECEXP 


JMP_ FP 
FPIN17: PUSH CX 


FPIN? 
JHP  FPIN3 


MOV  DECFLAG,OFFH 
FPIN2 


LER DL .FPTEMP? 
"PERLE FRINOLLÉS 


À LER OL,FPTEMP! 
CALL FPTMUL 

V_ CX,WORD PTR FPTEMP4411 
SUB CXMORD PTR FPTEMP2+11 


: SAR NORD PTR FPTEMP1408,1 
RCR WORD PTR FPTEMP1406 
RCR NORD PTR FREE 1404, 1 
RCR WORD PTR FPTEMP142,1 
RCR OR PTR FPTEMP140, 
LüOP FPINS 


Ÿ mov AX,MORD PTR FPTEMP2+11 
NOV WORD PTR FPTEMP1+11,AX 
JP FPIN11 


RER WORD PTR FPTEMP2+06 ,1 
RCR WORD PTR BrEmaun, 1 
RCR WORD PTR FPTEMP2+2 
RCR NORD PTR FRTEMPA 10, 
. LO0P FPIN10 


Ÿ mov AX,NORD PTR FPTEMP1+11 
MOV WORD PTR FPTEMP2+11,AX 
P  FPIN11 


C 
LEA DI,FPTEMP1 
LEA SI, FPTEMP2 
CLC 


INC SI 
AOC CDIJ,AX 
INC OI 


INC OI 
_ LOGP FPIM12 

Ÿ LEA OL,FPTEWP 
CALL FPFNORM 


JE 
DEC DECEXP 


ADD AL,30H 
L,5FH 

CMP AL,'E' 

JNE  FPIN16 

CALL SGNDEC16IX 

ADD WORD PTR DECEXP,DX 


CMP CX,0 
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LER DI,FPTEMPI 
CALL FPTMUL 
LER DI,FPTEMP1 
CALL FPFNORN 
POP CX 


0 
LOOP FPIN17 


LEA DI,FPTEMP1 
CALL FPENORN 


POP CK 
LOOP FPIN19 
FPIN20: CAL EXTINT 
POP fx 


î 
î 
À EFFACEMENT OU BUFFER DE SORTIE 
ÉFFSORT: PUSH O1 
PUSH CX 


PUSH AX 
LEA OI ,BUFCAROUT 
MOV CX,20 


MOV AX,0 
EFFSORTI: MOV WORD PTR CDII,AX 
INC OI 
INC Di 
LOOP EFFSORT{ 
POP AX 


POP CX 
POP DO! 


RET 
STOOUT : PUSH DI 
PUSH CX 
LEA DI,BUFCAROUT+1 
NOV CL,BYTE PTR BUFCAROUT 


MOV AIT PTR COI),R 
INC AVTE PTR BUFCAROUT 


POP OI 


: AFFICHAGE FLOTTANT 
TDECSHOW: CMP DECSIGN, 0 

MOV AL," 

JE  TOÉCSHOW 

MOV AL,'- 


TDECSHOW1 : CAÈL STOOUT 
TDECSHOW2 : LER SI ,DECBUFF +21 
MOV AL,(SI] 


DEC SI 
AOÛ AL, 30H 
CALL STOQUT 
MOV AL,’ 
CALL STOOÛT 
MOV rt : NB DE DIGITS DECIMAUX 
TOECSHOW3: MOV AL,(SI) 
DEC SI 
ADD AL,304 


CALL STOOUT 
LOOP TDECSHOW3 


MOV AL,'+' 
J6E  TOÉCSHOM4 


DX 
MOV AL,'-' 


TDECSHOM4: CAL STDOUT 
GALL DEC 160UT 
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i DEC GOUT 
DECA6OUT: PUSH DI 
PUSH DX 


LEA D 
DEC160UT1: PUSH CX 
NOV A 
MOV OX,0 
nou EX, 10 


br il, fl 


DECI6OUT2: DEC O1 
MOV AL,BYTE PTR [DI) 
CALE STOOUT 
LOOP DEC16OUT2 
POP AX 
POP CX 
POP OX 
POP O1 


RET 
: CONVERTION 48 BITS EN BCD 
. PUSH DI 
MOV ALU 
MOV CX,25 
BING020EC1: MOV CDIJ,RL 
INC DI 
LOOP BINBO2DEC 1 
POP OI 
BING020EC2: PUSH SI 
MOV 


HOV CX,5 
HOV 0X,0 


ADD SI,8 
BING020EC3: PUSH CX 


CX 
LOOP BING020EC3 
M (] 


},0L 
OI 
POP SI 
MP BX,0 
BIN4020EC2 
; NORMALISATION DECIMALE 


ÉECNORM: CHP BYTE PTR 22(013,0 
JE  DECNORM2 


MOV AL,(DI) 
ADD AL,AL 
NOV AH,0 


MOV CX,24 
DECNORMI: MOV AL,1[01) 
AOC AL,A4 
MOV AH,0 

M LD (OI ,AL 
Loge DÉC Dog 
DECNORM2 : RER 
: MOITIE DECIMALE 


GECHALE; HAT 
DECHALFI:  XCAG AL,(DI) 


INC DOI POP OI 
LOOP DECHRLF1 RET 

DEC  DECEXP 

NOV CX,25 ; 
NOV  AH,0 i 


DECHALF2: PUSH CX ADDITION 
DEC OI ; SI = OPERI 
MOV AL,[0I] : DI = OPER? 
MOV EL,2 : LE RESULTAT EST DANS OPERI 
RAD : ; LES SIGNES SONT TESTES AVANT L'OPERATION 
Ü 
MOY CDID,AL HBINADO: 
POP CX PUSH SI 
LOOP DECHALF2 PUSH DI 
RET : 
: MOV Cx,2 
: DOUBLE DECIMAL CLC 
an MBINADO1 : 
DECOOUBLE: MOV CX,25 MOV AK, (SI) 
AOC AX,[DI] 
MOV AH,0 INC OI 
DECOOUBLE: MOV AL,(DI] INC OI 
SAL AL, ! MOV (SE),AX 
ADO AL,AH INC SI 
nnM INC SI 
MOV CDLJ,AL LOOP MBINADO! 
INC MOV AL, [SI] 
LO0P DÉCOOUBLE AC AL CDI] 
RET MOV (SE) AL 
: POP OI 
: SORTIE FLOTTANT POP SI 
Fun RS RRent tee RET 
FPOUT : PUSH DI : 
: SOUSTRACTION 


fk 
NOV. AX,NORD PTR NUMB MOV CX,2 
OR AX,WORD PTR NUMB+2 CLC 

OR AXNORD PTR NUMB+4 
JNZ FPOUT! 


JP FPOUTE DI 
FPOUT1: MOV CSIJ,AX 


MOV. DECEXP,21 INC ï 
MOV. AL,BYTE PTR FPTEMP1+10 LOOP MBINSUB1 
MOV DECSIGN AL MOV AL, CSI] 
LEA SI ,FPTEMP1  SB8B AL,EDI] 
LER DL DECBUFF MOV CSÉJ,AL 
CALL BINGO20EC POP D] 

MOV CX,WORD PTR FPTEMP1411 POP SI 

SUB CK,72 RET 

CP CX0 : 

JL  FPOUT2 : MULTIPLICATION 
J6  FPOUTI s 

JWP FPOUTS MB INMUL : 


PUSH AX 
LER OI ,DECBUFF | LEA BX,RESHUL 
FRE DECNORA LEA SI,O0PER1 


OP CX LEA DOI ,0PER2 
LOUP FPOUT3 PUSH BX 


JP FPOUTS NOV. AX,0 
FPOUT4 : PUSH CX MOV CX,06 

LEA O1 DECBUFF CLD 

CALL DECOOUBLE MBINMUL 1: 

LEA DL OECBUFF MOV CBXI,AX 

CALL DECNORN INC GX 

POP CX INC BK 

LOOP FPOUTA LOOP MBIMMUL 1 

MP FPOUTS POP GX 
FPOUTS : CALL TDECSHOW MOV. CX,3 
FPOUTS : POP AX 
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Eee meme meme me ms me = 


See mm 


PUSH BX 


DIVISION 


SHIFT LE DIVIDENDE 1 LES ITEUR À GAUCHE 


SI CONTIENT LE DIVISEU 


OI CONTIENT LE DIVIDENDE 


BX CONTIENT LE QUOTIENT 


CL 
IVSAL 1 : 
RCU WORD PTR £01),1 
INC OI 
INC OI 
LOOP OIVSAL1 
POP CX 
POP OI 
RET 


IVSUB: 
PUSH SI 
PUSH DI 

CX 
LEA BX,TENPOIV 
V CX,3 
V OX,(51] 

5 


8 
LOOP DIVSUB1 
POP CX 
POP BX 
POP D] 
POP SI 
RET 


CHGEMENT DE OIVIDENDE 
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MOVEIT: 
PUSH SI 


PUSH DI 


PUSH CX 


CX,3 
SI,TEMPDIV 


RCL WORD PTR CBX),1 
INC BX 


INC BX 
LO0P ile 
POP CX 


POP BK 
RET 

i 

: DIVISION 

HBINDIV: 


CALL OIVSU 


JC NBIND2 
CALL MOVEIT 
STC 
JP NBINDS 
INO2 : 


HBINO3: 
CLC 
ALL 


CALL QUOTSHL 
DIVSAL 


POP CX 
LOOP MBIND1 
POP AK 


RJUSTENP: 
B 


AJUST1: 
R 


; SI s OPER1 
; DI = OPER2 
: AL ET AH CONTIENNENT LES EXPOSANTS DE OPER1 ET OPER? 


AJUSTEXP 


AH 
AJUSTEXP1 
AL,0 
AJUSTEXP2 
AL,33 
AJUSTEXP3 
CL,AL 
CH,CR 

SAR BYTE PTR 4001),1 


NORD PTR 2[01),1 
WORD PTR 0LDI],1 


C BYTE PTR S(D!] 


LOOP AJUST1 


JM 
LEE 


P  AJUSTEXP1 


HOV CL,AL 
CX 
a : 


RTE on ue 4E511,1 


R WORD PTR tél ],1 


JHP 
AJUSTEXP3: 
JHP 


RJUSTEXP 1: 
AJUSTEXP4: 


. 
ü 


RCR WORD PTR 0[51),1 
INC BYTE PTR 5(SI) 


MOV AX,0 
RET 


: AVANT SI = OPER1 DI = OPER2 
: APRES DI = OPER! SI = OPER? 


FXCH: 


FXCH61: 


LPADD: 


CONTADD: 


FA003: 
FADD4 : 


FA0D7 : 
FA005 : 


MOV AX,I 
xCHE fx on" 
(S1],AX 


LOOP FICHE 
POP 


POP ol 
RET 


FAOD 


LEA SE ,0PER1 
LEA OI, OPER 
MOV L NORD PTR 4151] 


MOV AX,(DI] 
MOV ESEI,RX 

A0 OI,2 

A00 SL.2 

LDDP Ad 


FADD6 
MOV AL,BYTE PTR 4[5I)] 
AND BYTE PTR 4(51],7FH 


L,80H 
MOV SENOPER, AL 
LBYTE TR 4(0I] 
AND BTE PTR 4CD1),7FH 
AL, 60H 


MOV SGNOPER2 ,AL 

MOV  AL,BYTE PTR S{SI) 
MOV AH,BYTE PTR 5(DI) 
CALL AJUSTEXP 

OR AX,AX 

JNZ  FAOD6 

MOV AL, SGNOPER1 

MOV ride 


îR 

JNZ  FADD4 
CALL FXCH6 

MOV AL,SGNOPER1 
MOV AH, SGNOPER? 
MOV  SGNOPER1 ,AH 
MOV  SENOPER2 ,AL 


FADD7 

CALL MBINADD 
FA0DS 

CMP _AX,60H 
JZ  ZEROSUB 


CALE MBINSUB 
AE PTR 4(51] 


üR 
J1  FAô06 

CALL FLINORM 

MOV AL, SGNOPER1 

OR BYE PIR 4CSII,AL 


Mise me ms me ne 


FADD6 : RET 
ZEROSUB: PUSH 5! 
HOV 


fx,0 
LEA SI OPERt 
MOV CX,2 
BLZERO: MOV. [S1]),AX 
A0 51,2 
LOOP BLZERO 
POP SI 
JWP FADD6 


= (PER! 
ù = ce 


ne me mn me me me me me 
mm 
ÆE=ooun 
D 0 et trs 
ous 
no 
mt med 
#“ 
hH « “ 
” 
D © 
= 
“4 
LR 


PUSH SI 


D 
MOV AL,BYTE PTR 4[51] 
MOV CTR que PTR 4[01] 


FCMPB: HV AX,WORD PTR CSI) 
HOV Dre PTR (DI] 


SUB DI,? 


FCMP1: MOV AX,1 


FCMP2: NOV AK,0 
FCMP5 : POP OI 


MULTIPLICATION 
ÉMULT : NN 0 AX,WORD PTR OPER1+4 


JT  IMÜLT 
MOV  MULEXP1,AH 
AL,80H 
MOV SGNOPER1,AL 
AND WORD PTR “OPERT+4, 007FH 
MOV us MORD PTR OPER2+4 


JNZ QUE TL 
IMULT: PUSH OI 


AX,0 
LEA O1,0PER1 
CX,3 
MULZ: A WORO PTR C[DI),AX 


DI 
LOOP MULZ 
POP OI 
JNP  FINMUL 
SUITMUL: MOV  MULEXP2,AH 
AND AL, _ 
MOV SGNOP 


ER2,AE 
AND uoRO. PTR "OPER244, 007FH 
Len ar NUL 


GE DE 
POP O1 
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AL ,SGNOPER? 


AH, SENOPER2 
PUSH SI XOR AL,AN 
PUSH OI OR BYE PTR QUOTIENT#4,AL 
LEA SI,RESMUL+5 POP BK 
LEA DI,0PER1 POP DI 
OVSE POP SI 


SI Ë 
MOV  AL,MULEXP1 DIVNORM 
AH ,MULEXP2 VON A AL,BYTE PTR QUOTIENT+4 


] 

ADD AL ,AH DIVNORN1 

MOV BYTE PTR OPER145,AL SAR WORD PTR QUOTIENT+4,1 

NOV AL, SGNOPER1 RER WORD PTR QUOTIENT+2,1 

NOV je VSBNOPERZ RCR WORD PTR QUOTIENT,1 

XOR INC  MULEXP1 

îR AVE PTR OPER1+4,AL JNP DIVNORN 
FINNUL : RET aiaui F Uni me PTR QUOTIENT+4,40H 
; SALE WORD PTR QUOTIENT 
; ACL WORD PTR QUOTIENT+2, 1 
; a EL DE LA a EL RCL WORD a QUOTIENT+4,1 
MULNORH: MOV BYTE PTR 09(01) DEC MULEXP1 

SAL À 1 JP DIVNORMI 

dNC. MULNORN DIVNORM2: RET 


SAR WORD PTR 08001) ,1 

RCR WORD PTR 06(01],1 | 

RCR WORD PTR 04(01],1 E 

RCR WORD PTR 020011,1 j 

RCR WORD PTR 00[011,1 j DIVISION PAR 0 ? 

INC MT CMPO: PUSH DI 

JP NORH PUSH CX 
MULNORM1: CMP Es a 09L01),40H LEA DI,0PER2 

J6E MOV CX,3 

SAL NORD. PTE 00L011,1 MOV AX,0 

RCL WORD PTR 02(D1], CHPO1: CMP AX,WORD PTR (01) 

RCL WORD PTR O4[DI 0 


1 
1,1 JNE  CMPO2 
RCL WORD PTR 060011, OI 
RCL WORD PTR 08CDI],1 
DEC MULEXP1 LOOP CMP01 

P MULNORM1 NOV  FPERR,40H 


P  CMPO3 
MOV  FPERR,0 
pop CX 


ES OU QUOTIENT 


PUSH AX ; 
MOV  AX,0 i PEER 


NOV CX,3 
NULQ1: MOV CBXI,AX 
INC 8X 


NULQ: 


INC BX 
LOOP NULQ1 
POP AX 
POP EX 
RET 
j FDIVISION 


ÉOIV: PUSH SI 
PUSH OI 


PUSH DOI 
LEA OI ,BUFCARIN+2 
MOV SI,AX 


HOV CH,0 
PUSH BX NOV Hg ‘ds 
LEA SI,0PER2 HOV 
LER DL ,0PER1 NOV ÉT a FEI tx 
EE 8x, Ba QUOTHENT REPNZ 
POP DOI 

* AO AX,NORO PTR OPER1+4 POP SI 
NOV. MULEXP1,AH CALL FPIN 
AND AL,80H PUSH WORD PTR NUMB 
MOV  SENOPERT,AL PUSH WORD PTR NUMB+2 
AND WORD PTR OPER1+4,007FH 
MOV AX,NORD PTR OPER2+4 PUSH WORD PTR NUMB+4 

MULEXP2 ,AH NEXT 

AL, 00h ; 
pit SENOPERZ ,À ; FPHASC 

AND WORD PTR ORERAH, 007FH ; 

CALL NBINDIV DB 86H 
CALL OIVNORM ne "FP)AS' 
NOV AL ,MULEXP1 de sl 
Re ie 
ADO AL,B2H 1 Ua fr NUMB+4 


BYTE PTR QUOTIENT45,AL POP WORD PTR NUMB+2 
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POP WORD PTR NUMB+0 
CALL EFFSORT 

CALL FPOUT 

LEA AX,BUFCAROUT 
PUSH AX 


î F+ 
0B 62H 
08 t'F! 
0B  ‘’+'+80H 
ON FPTASC-9 
FPLUS de $+2 


POP WORD PTR OPER2+2 
POP WORD PTR OPER2+0 
POP WORD PTR OPER1+4 
POP WORD PTR OPER1+2 
POP WORD PTR OPER1+0 
OR  AX,AX 


FSBA 
NOV di PTR OPER2+4,AX 


POP SI 

FSBA: PUSH WORD PTR OPER1+0 
PUSH WORD PTR OPER1+2 
AE WORD PTR OPER1+4 


JP SBA 


j MULTIPLICATION 
82H 


08 ‘F' 

DB  ‘#'+80H 

ON FSUB-5 
FSTAR DW $r2 

POP AX 

POP WORD PTR OPER1+2 
POP ds PTR OPER1+0 


B 
POP WORD PTR OPER2+2 
POP WORD PTR OPER2+0 


,RX 
JZ  NULZERO 
OR BX,BX 
JZ  HULZERO 
MOV WORD PTR OPER1+4 ,8X 
MOV a PTR OPER2+4, EX 


PUSH 0 
CALL FMULT 
POP DI 
POP Si 
PUSH WORD PTR OPER1+0 
PUSH WORD PTR OPER1+? 
PUSH WORD PTR OPER1+4 
NEXT 
NULZERO: MOV AX,0 
PUSH AX 
PUSH EX 
PUSH AX 
XT 


DIVISION 


DB  ‘’F' 

08 ‘/'#+60H 

ON FSTAR-5 
FSLAS ON  $+2 

POP AX 

POP WORD PTR OPER2+2 
POP Li PTR OPER2+0 


B 
POP WORD PTR OPER1+2 
POP HP OPER1+0 


JZ  HULZERO 

OR BX,BX 

JZ  HULZERO 

MOV WORD PTR OPER1+4,BX 
co A PTR OPER2+4,AX 


PUSH *URD PTR QUOTIENT+0 
PUSH WORD PTR QUOTIENT+2 
pe WORD PTR QUOTIENT+4 


DB '0'#+80H 
ON FOUPL-7 
FIER ON $+2 


RCR 
LOOP Mt 
JMP  INT4 
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INT3: SAL AX,1 DB ‘F' 


RCL OX,1 DB ‘l'+804 
LOOP INT3 OM FAT-5 
INTé: MOV AL, SGNOPER! FST ON #42 
MP AL,80H POP BK 
JNE INfS MOV CX,3 
FSTi: POP COX] 
BX ,2 


DX,0 DX 
32  FLOATÉ POP NORD PTR OPER1 
Jé  FLOATI POP WORD PTR OPER2 
NEG OX PUSH CX 
FLOATI: MOV CX,9800H PUSH BX 
FLOAT2: CMP  AX,0040R PUSH AX 
J6E FLOAT3 PUSH WORD PTR OPER2 
SAL DX,1 PUSH WORD PTR OPER1 
RCL AX,1 PUSH DX 
DEC CH NEXT 


P  FLOAT? 
ue AX,007FH 


COURRIER: Cher Secrétaire, 


de viens de recevoir te dernier numéro de JEDI et c'est 
avec une grande tristesse que je verrai disparaitre JEDI 
qui m'apporte des inforaations intéressantes. J'éspère 
qu'il n'en sera rien et que nous trouverons à fournir de 
quoi publier. Je pourrai éventuellement vous faire 
parvenir un résumé au type de travail Que nous avons 
développé en FORTH. C'est assez particulier, mais JE ne 
ANNE jamais joindre de Listings comme vous Le faites en 
general, | Ne ; 

Je me suis abonné à JEDI car j'avais sélectionné Le 
FORTH comme Langage de développement. Nous avons travaillé 
avec MacFORTR sûr MacINTOSH et maintenant nous env1sageons 
de transcrire ce Es sur IBM/PC. Ce sera Sans Coute 
en FORTH LMI car il possède (d'aprés Les docunentations 
que j'ai pu recueillir) de nombreuses possibilités au 
niveau du RTE (dessins de molécules), ensuite Le 
NATIVE CODE OPTIMIZER me semble exceltent. Est-ce qu'il 
serait possible de passer une annonce dans un (éventuel } 
futur numéro afin de savoir si un des adhérents l'utilise 
et si on obtient une rapidité d'exbcution excellente? 

J'aurai bien aimé trouver un article sur Les rapidités 
des différents Langages. 51 vous Le désirez, Je pourrais 
écrire quÉqAUE chose sur mes “sentiments® par rapport au 
HUE FORTH, ce que mol l' trouve bien et moins Dien, 
histoire de Lancer une sorte de polèmique? Je ne sais pas 
si ce serait intéressant? | 
Enfin, je peux vous donner des idées de mots FORTH que 
jAnenals trouver dans JEDI, 5i des douès pourraient Les 

crire: 

= 6070 (quand on à été nourri au BASIC, il est 
difficile de s'en passer. Un exemple avait été donné dans 
un numéro, mais pour Le 6502). | 

- Le PRE d'arguments comme dans Le MacFORTH. Les 


1Q'+40H exemples donnés dans un précédent numéro sont différents. 
DW FOVER-8 En MacFORTH on écrira Dar exemple: 
FAT DW $+2 VART VAR2 VAR3 MOT 
POP BX et mot a été défini ainsi: 
AOD BX,4 ; MOT LOCALS: V3 V2 V1: 
MOV CX,3 VAR3 - ) V3 VARZ -) V2 VART -) V1 : 
FAT1: PUSH CEX] ensuite quand on apoelle V3, on à La valeur sur La pile. 
sub BX,2 Ce oui est géniat en MacFORTH: il n'y à plus d'écran, 
LO0P FAT on écrit des mots de La Longueur qu'en veut. Le --) était 


plutôt Lourd. r : 
_Queiqu'un pourrait-il écrire quelque chose sur Les 
différents FORTH qui existent sur PC? 


NEXT 


D8 62h 
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Bien cordialement 
R.BARONE 13397 MARSEILLE CEDEX 12 


Cher adhérent, 


L'instant, et Jus à votre courrier, JEDI 
out Le monde d'aider à maintenir 


REPONSE : 


Pour nstant, 
survivra, mais il tient à 
{a DU 1e : 
. Concernant vas propositions d'idées d'articles, toute 
intervention provoquant une discussion est intéressante. 
Seul Le débat sans contrainte est facteur de progrès, 
qe soit SEEN CIRE Mais oin de nous l'idée 

e relancer un DROIT DE RÉPONSE écrit; c'est en provoquant 
La réflexion que L'on déclenche La créativité. | 
Concernant votre choix de La version FORTH LMI, je ne 
puis La critiquer. Le FORTH LMI n'est pas à La qui e de 
toutes Les bourses. IL continue à gérer des blocs, al 
dispose de fonctions ju mais n'est pas adapté aux 
cartes graphiques standard (IBM COLORCARD) du moins est-ce 
ce ue j'ai constaté sur Le PERSONA 1600 de LOGABAX. 51 
JEDI a choisi La version Laxen et Perry, c'est 
essentiellement ue que c'est Le standard le plus 
utilisé, même S'il n'est pas aussi rapide que Le FORTH LMI. 
La rapidité des Langages reste un critère très subjectif. A 
moins de traiter des applications ‘temps réel", il faut 
toujours faire La part entre rapidité d'exécution et 
rapidité de développement. Ecrire une oo de base de 
données est plus appropriée avec dBASE ÎlI. Pour ma part, 
FORTH est un outil venant compléter une panoplie logicielle 
en offrant Le ee de développer des modules qu'il me 
serait trop difficile à écrire en assembleur. 

Une bonne nouvelle je LUE bientôt dans JEDI Les 
fonctions graphiques ÉLémen aires en F83 pour tous Aie 
sous MS00S, ainsi que La gestion de variables Locales tel 


que vous LE Su Te 
VAR MACHIN LOCAL BIBULE 
(DEFINE ESSAI 


ÿ 
(DECLARE VAR TRUC 
TRUC MACHIN # BIQULE LET ( bidule:=trucæmachin) 
») \ fin de définition 
Concernant La UE des blocs, joie un Coup 
d'oeil sur L'article TURBO-FORTH. IL répond à vos souhaits 
et prouve une fois de plus ue  JEUI est 
INDISPENSABLE, mais que ce n'est pas toujours 
aux mêmes d'écrire des articles. La part de temps accordée 
au développement des programmes accompagnant Les artictes 
est souvent non RALUES surtout quand on tient à 
proposer des sujets de Valeur. 
LE SECRETRIRE 


COURRIER : J'espére pouvoir très bientôt vous faire 


parvenir un article qui sera consacré aux Langages orientés . 


objets et Leur simulation en APL. La modestie nous empêche, 
plus Souvent que l'envie, de partager nos petites 
découvertes. À bas La modestie! 


DE SOZA 
06300 NICE 


COURRIER: 


A La Lecture de La Lettre du Secrétaire qui était jointe 
au n°37, pu ressenti un certain malaise. La Lettre du 
21 septembre me confirme dans mes craintes. IL me semble 
que quelque chose ne tourne puis cette 
association à vocation très originale. | 

Malheureusement, il n'ets pas question pour moi de me 
rendre 9 {a réunion du 26, pour La bonne raison que je 
reçois La convocation... Le 26! Elle a êté postée Le 23, et 
timbrée au tarif *B*, on ne peut guère en vouloir aux PTT 
oui ne Sont pas en tort. La pêrsanne qui a expédié Le 
courrier devait savoir ce qu'elle faisait! ... Ou ators elle 
à fait preuve d'une insouciance un peu coupable. 

Les décisions Sergnt donc prises quend ma Lettre sera 
lue par qui le voudra. Je te PS Et si j'avais eu 
envie de contribuer, malgré mon éloignement, à La tentative 
de Sauvetage, Je ne pourrai pas Le faire. 

Néanmoins, à tout hasard, je vous signale que toute 
association qui 5e veut solide doit tenir compte de La 
nature des associés. Ici, nous avons quetques fondus de 
trucs bizarres, Le FORTH pour ma art. La dispersion sur Le 
territoire national ENdèr: et  extra-territoriall) LE 
adhérents est une conséquence inévitable de cette 
bizarrerie qui est notre Lot commun. Et L'organisation 


Chers amis, 


rond dans 


interne de l'association devrait en tenir compte, en 
décentralisant Les éléments de La structure qui peuvent ne 
pas en souffrir. 

IU appert que tout Le poids du fonctionnement de JEDI à 
reposé, et repose encore sur Le pauvre "Secrétaire" de 
service aidé ou non par un nombre tue petit de bonnes 
votontés. Et c'est sans doute de cette centralisation 
excessive que pêrira JEDI si elle ne s'en sort pas. C'est 
d'autant plus dommage que je crois qu'elle correspondait à 
un besoin réel. | | 

Qu'aux dieux ne plaise que mes craintes ne 5e 
réalisent! Et Si une chance subsiste que JEDI redémarre, 
je pense qu'il faudrait prévoir des tâches bien précises 
£t décentralisées, tenant compte de La dispersion des 
adhérents. At | 

Mais peut-être L'association fanctionne-t-elle déja 
comme cela et peut-être fais-je complétement erreur dans 
ce qu n'est aprés tout qu'un faisceau d'impressions. 

Si JEDL disparait, j' regretterai cette petite revue 
originale qui m'a apporté des Lumières sur bien des trucs 
que je ne Connaissais pas. 

Comme je regrette de n'avoir pas reçu à temos L'annonce 
de La réunion extraordinaire. 

Encore tous mes voeux de bonne santé à notre 
association, joints à mes remerciements sincères à La 
toute petite équipe qui s'est dévouée pour faire vivre 
JEDI jusqu'à présent. Elle a su faire un travail étonnant, 
et de quoi que Soit fait Le futur, elle mérite de 
chaleureuses félicitations. | 

Avec cette poignée de bonnes pensées mêlées de quelques 
regrets, Jus à L'équipe motrice toutes mes amitiés 
et, que diable, l'expression ed mon solide désir que cet 
épisode ne Soit qu'un épisode! 


B.C.LAMBEY 
34070 MONTPELLIER 


REPONGE : 


Que de june dans votre propos. 51 La convocation à 
êté envoyée ïin-extrems, c'est parce qu'il me fallait 
fixer une date en fonction de La garde de mes enfants (21 
mois et 7 mois): ça a té Le 26. Les convocations ont été 
triées de manière à privilégier d'abord Les adhérents de 
: ten parisienne, convocation reçue en majorité dans 
es temps. . | 

Pour information, une association Loi 1901 doit 
obligatoirement faire une réunion annuelle Lu réélire Le 
bureau: PRESIDENT, SECRETAIRE, TRESORIER. Par expérience, 
Les précédentes réunions n'ont rassemblé que très peu de 
personnes, La dernière, celle du 26 a atteint La présence 
record de 4 personnes. IL est tout à fait évident qu'une 
association Comme JEOI avec des adhérents dispersés ne 
peut exiger La présence d'un quorum qui serait impossible 

tenir. Les vraies décisions se prennent tout au Long de 
L'année, et pour JEDI, ont été jusqu'à présent réduites à 
des détails de fonctionnement: donner La signature 
bancaire au Secrétaire sur Le chéquier de L'Association, 
investir dans La participation de L'édition du manuel F83, 
rechercher des sources de financement autres que Les 
cotisations. 

Pour Le reste, bien que JEDI ait Le statut 
d'association, c'est avant tout une revue, et de ce point 
de vue, Son contenu à toujours êté Le reflet de La 
décentralisation même, celle-ci étant même étendue à des 
rédacteurs non adhérents. JEDI coûte environ 5000 Fr par 
mois et atteint 200 Lecteurs. Existe-t-il un autre média 
dont on peut dire qu'il revient moins cher en 
investissement qu'un employé payé au SMIC (charges 
sociales comprises...)? Nous vous Le disons, pour l'avoir 
entendu dans Les salles de rédactions des grandes revues, 
que JEDI est envi, car nous abordons des sujets parfois 

ifficiles, très spécifiques, ceci sans aucun budget 
publicitaire (mais aussi sans rétribuer Les piges). Nous 
avons tenu jusqu'à présent plus ÉRULE que bien des 
revues (MICROTOM, MICROSTRAD, MICRODORE, TEDPHILE, MICRO, 
etc...) mais nous ressentons tout de même Les effets de 
l'effondrement du phénomène "MICRO". 

Concernant La décentralisation telle que vous 
L'entendez, c'est à dire une décentralisation 

gjnisirative gLte 185,095 intgrqite aux menDres de 
en orénûré L'iñltiative. Mals je me D uné 
remarque: plusieurs adhère 


Cher adhérent, 


nts ont tenté de constituer Leur 
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propre groupe d'activité FORTH, dont une certaine personne 
LT se reconnaiîtra) dont Les coordonnées figuraient dans 
FORTH DIMENSION. Ÿ à-t-il eu des contacts suivis ue 
cette annonce? Pour ma HE nes coordonnées RU Les 
diffusées dans VIERTE DIM NSION {F.1.6. HAMBOURG RFA) n'ont 
eu aucun résultat. Pire, en écrivant aux coordonnées des 
différents ETS soi-disant constitués en TE n'ai 
eu AUCUNE REPONSE (je tiens La Liste à La disposition de 
qui La souhaite), sauf de La part de FI6 HAMBOURG (encore 
eux... c'est une invasion teutonique). 

IL y à de tout comme adhérents de JEDI: une banque, 
L'armée, L'éducation nationale, des industriels, des 
universitaires, des étudiants, des fonctionnaires, des 
chercheurs, des retraités, des curieux, des bidouilleurs, 
des débordés et des oisifs, ceux qui s'investissent et ceux 
qui anvestissent, ceux qui sont envahis par La micro et 
ceux qui envahissent Les autres avec Leur micro, Ceux qui 
calculent, ceux qui écrivent, ceux qui dessinent, Ceux qui 
musiquent (du verbe musiquer... ne cherchez pas, ça vient 
de sortir). De toutes ces compétences JEDI se veut Le 
carrefour, un point de rencontre. Les grecs avaient La 
place publique, nous avons une revue et La Liberté et Les 
moyens de La diffuser: profitez-en! 


sont appelées prédicats. Plus généralement, toute 
JU peut être impliquée par d'autres propositions 
et Leurs conjonction-disjontion-négation: 


pvqaurss 


Le signe : marque L'implication. 


La Logique, comme L'algèbre, a 5es postulats: 


- toute conbinaison débouchant sur une proposition 
systématiquement vraie est appelée tautelegie: 


pv'pss 


- toute combinaison débouchant sur une proposition 
systématiquement fausse est une ceatradictien: 


p''hEs 


Voila, vous disposez de TOUS Les éléments pour travailler 
et étudier La Logique et Le calcul des prédicats. 


LE SECRETAIRE 


| LA NOTATION | 
Dans Le précédent article, nous avons abordé Les principes me 


de La Logique et 5on ns aux systèmes experts. | ; 

Cette fois-ci, voyons Le coté mathématique de La Logique. En Logique, La notation n'est pas normalisée. AIRE 
en fonction du domaine d'utilisation, une habitude 

SA prédonine. 

Notation mathématique: 


LA LOGIQUE BIEN FORMALISEE 


Soient deux propositions: | | . | 
| Notation en automatisme industriel: 
"JE0I est une revue intéressante" nommée p 


*JEOI est une association Loi 1901" nommée q L . qurien 
+ 
on peut émettre une pps tue globale regroupant nos deux NON barre au-dessus de La variable ou de 
propositions en une seule en disant: L'expression 
*JEDI est une revue intéressante" On trouve également dans certains ouvrages Les 
ET *JEOI est une association Lai 1901* . fornulations suivantes: 
Le terme ET s'appelle une conjanction (conjonction. ET à 
mathématique et non grammaticate): NON 
p°q qui se Lit " pETo * Dans chacune de ces notations, Les parenthèses sont 
; | _ | admises. Dans ce cas, il faut tenir compte de L'ordre de 
Nous pouvons disposer aussi des propositions suivantes: priorité des opérateurs Logiques ET et OÙ qui sont 
; tes aux ordres de priorité des opérateurs 
“JEDI est Le titre d'une revue" arithmétique # et +. 


e 
OÙ "JEDI est un héros de film de fiction" 


I pes être L'un ou L'autre ou Les deux (ce qui est Le 
ca5...): 


Notation des équivalences: 


en mathématique 
en automatique industriel 


pvq qui se Lit * pOUq . 
Ne Enoncé de condition: 
Le terme OÙ s'appelle une disjenction. | 
4, | | + en mathématique 
Chaque proposition peut égalemment avoir son contraire: 


Exenple: 
*JEUL est une revue" | 
“JEDI -n'est pas- une revue* Si à ET non B alors Q 
Exemple: est noté 


*S1 JEOI est une revue" | 
“ALORS JEDI -n'est pas- un héros de film de fiction‘ 


a*"b0 


Le contraire ou négation se marque ainsi: 


C2 


q 


Les combinaisons réalisées à partir des propositions ou de 
Leur contraire à partar des conjonctions ou disjonctions 
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LES LOIS DE LA LOGIQUE 7] Dans La réalité, et Le dernier exemple Le démontre 
OU DE L'ALGEBRE DES PROPOSITIONS clairement, une conclusion peut dépendre de plus d’un ou 
deux paramètres, eux-même dépendants d'autres paramètres, 
Heureusement, sinon nous serions contraints à nous marier 


Lai idempotentes: très jeune pour survivre... 
DvVp:ED Afin de ne Laisser aucune possibilité de coté, on utilise 
p'PED des tables de vérité. À suce Haurens es prémisses où 
| .. propositions, à droite figurent Les conditions résultant 
Loï d'associativité: (pvug)ivr=spultqvr) des relations entre Les propositions. Exemple: 
Loi de comutativité: pvgzqv p a D | avb 


Loi de distributivité: pv q "rJspua)l* (pur) 


Là PR pRRte de ces Lois ont un en ni identique à 
celles définies en arithmétique, à La différence près que 
51 vous notez en automatisme industriel cette expression 


Ici, nous ne disposons que de deux propositions, à et b. 

atb=t oùaztetb=1 Avec trois propositions, nous aurions trois cotonnes et 

de . | huit Lignes dans notre table de vérité. Le nombre de 

L'ne vaudra pas 2 en décimal ou 10 en binaire, mais 1 en colonnes à réserver dans une table de vérité est égal au 

Logique! Ne perdez pas de vue que La Logique formelle nie nombre de propositions, Le nombre de Lignes est que à ? 

l'aspect sémantique des expressions égivalentes exprimées élevé g La puissance du nombre de propositions. Pour 16 

dans un Langage plus évolué. Si vous dites: propositions, nous aurions une table de vérité de 16 
Colonnes et de 65536 Lignes. 


SI j'ai une fraise ALORS je peux repeindre Le plafond PP n 

En automatisme industriel, Les Séquences Logiques entre 
se formule à  q deux Lignes d'une table de vérité ne doivent pas contenir 
| : | | plus d'une variable changeant de valeur simultanément. On 

Un système de résolution Logique traitera Les expressions  fréécrit donc Le tableau: 
sous La Seconde forme, La première forme devant être à 
d'abord traduite. C'est ici qu'intervient Le moteur 
d'inférence 


avb 


D LE RAISONNEMENT LOGIQUE | 
Re 
| : +: Cette tu a une propriété particuliére, elle peut 
Le raisonnement est La relation établie entre diverses être bouclée: 


propositions et une conclusion. La conclusion peut être FF 
etle même proposition d'une autre conclusion: j : 
P1,P2,...,Pn-1,Pn LQ VF 


Le raisonnement Q est valide si P1,P2,...,Pn sont valides. Avec trois variables, il faut définir Les séquences 


Exemple de formulation dans un système expert logiques: 
ter bouciage seconds Douclages 
STa ETSIDb OUSIc ALORS FFF FFE FFF 
FFY FFV FFY 
noté également FU FVUV FVV 
FUF FUF FVF 
ST aETbOc ALORS Q VVF VUF 
| Vu wvy WVF 
Cas de syllogisme: VEV VFEY (AA 
VFF VFF VFY 
P-)qg-)r s por VFF 
STD ALORS q Dans des boucles isolées, Les sous-boucles sont 
SI Qq ALORS r commutatives, La condition selon Laguetle il ne doit pa5 y 
, avoir plus d'une proposition changeant d'état 
SI un homme est célibataire simultanément est respectée: 
ALORS il est malheureux 
ST un homme est malheureux FFF VVF VUF 
ALORS il meurt jeune FFV VU Vu 
| | FU NE VE 
Ce qui peut amener à La conclusion: FVF VFF VFF 
FFF 
SI un homme est célibataire VVF FFF FF 
ALORS il meurt jeune Vuy FFY FVV 
| ns WF FUV FVF 
Ce qui prouve l'utilité des belles-méres, car on entend VFF FVUF 


toujours l'expression: ‘ma belle-mère, ça fait trente ans .. 
que je La supporte...*, donc ceux qui meurent jeune ne sont Cette conmutativité reste valable quelque soit Le nombre 
pas mariés, donc il n'y aura plus de mariage, Car les de variables. Voilà un aspect intéressant de La Logique: 
JEUNES ne vivent pas assez Longtemps pour se marier, ce qui quelles Sont Les règles permettant La génération 
fisque d'être La fan des belles-méres.…. automatique des Séquences en respectant La commutativité 

des boucles? Si vous trouvez, faites-le savoir! {pour vous 
ET RE aider, cherchez dans La théorie des anneaux commutatifs). 


ESoNe CORSEATOIRE à Suivre... 
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